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VB3 and up 

Level: Beginning 

Force Tri-Slate Checkbox Cycling 

The CheckBox control in VB supports three positions: Checked, 
Unchecked, and Grayed. Unfortunately, the default behavior for 
the control is to cycle between Checked and Unchecked. To set it 
to Grayed, you must do it programatically. 

This code shows you how to cycle between the three positions 
(the order is Checked->Unchecked->Grayed->Checked ...): 

Private Sub Checkl_Cl i ck( ) 

Static iState As CheckBoxConstants 
Static bUserClick As Boolean 
' Trap if the user clicked on the control 
' or if the event was fired because you 
' changed the value below 
bUserClick = (iState <> Checkl . Val ue) 
' Prevents you from entering an infinite 
' loop and getting an Out of Stack Space error 
If bUserClick Then 
Select Case iState 
Case vbChecked 

iState - vbtlnchecked 
Case vbUnchecked 

iState - vbGrayed 
Case vbGrayed 

iState - vbChecked 
End Select 

' This will raise another click event but 
' your boolean check prevents you from looping 
Checkl. Value - iState 
End If 
End Sub 


—Eric Utwin, 


Oaks, California 


VB3 and up 

Level: Intermediate 

Use the Immediate Window to Write Repetitive Code 

You can stop a program's execution and use the debug window to 
generate code you can paste into your program. For example, you 
have a recordset called rs and you wish to manually move the 
contents into controls on your form or into declared variables. 
Place a breakpoint after you open the recordset, press Ctrl-G to 
open the Immediate window, and type this: 


for each x in rs. Fields : 
x.name & """)■ j next 


rs.FieldsC" 


When you press Enter, you get one line per field. The output should 
resemble this: 

- rs.FieldsCEdition") 

- rs . Fiel ds ( "Num" ) 

- rs.FieldsCTitle") 

- rs.FieldsCReaderName") 

- rs.FieldsCReaderFrom") 

- rs.Fields("B1tsl6") 

- rs.Fields("8its32") 

- rs.FieldsC Level") 

- rs.FieldsCTip" ) 

Copy and paste this output into your code. Now you only need to 
enter the destination control or variable's name on the left side of 
the equal signs. If you have a recordset with a large number of 
fields, this tip is worth its weight in gold. It prevents typing errors 
and saves time because the field names are pulled right from the 
recordset. 

—Larry Johnson, Trenton, Georgia 


VB5, VB6 

Level: Beginning 

Format Your Version Info 

Many professional applications are required to display a version 
number on all screens to indicate to users which version of the app 
is currently running. This also helps with configuration manage- 
ment. Here's a function that appends the VB project's version 
number to a text description passed to the function as input. The 
version information is embedded in a project by assigning major, 
minor, and revision values on the Make tab of the Project Proper- 
ties dialog. Then when you right-click on the resulting EXE file in 
Windows, go to Properties, and click on the Version tab, the 
version number matches those on your screens, providing a nice 
consistency. Putting the function in a standard module — particu- 
larly one made of generic reusable functions and subprocedures — 
allows other developers to plug the module into their projects and 
use the routine: 

Public Function GetVersiontstrApp As String) _ 
As String 

' Pass in the application name you want 

' displayed as part of the form's caption. A 

' blank character and the version number are 

' appended to the application name 

' completing the caption. 

GetVersion - strApp & " " & 

FormaUApp. Major, "#0") &"."&_ 

Format(App. Minor. "#00") & "." & _ 

FormatCApp. Revision, "0000") 
End Function 

Here's a sample call to this function: 

Dim strVersion As String 
strVersion - "Application XYZ Version" 
frmMain. Caption - GetVersion(strVersion) 
' Set form's caption 

— Michael T. Hv&nan, Germantown, Maryland 

VB4 32, VB5, VB6 

Level: Intermediate 

Bind Option Buttons to Data Controls 

The Option button is a convenient way to display multiple options 
from which only one can be selected. One problem is that the 
Option button cannot be bound to a data control. Here's an easy 
workaround: Create an array of Option buttons and also create a 
hidden text field and bind it to your data control. Place this code 
in your form: 

Private Sub 0ptionl_C11ck( Index As Integer) 

Textl.Text - Index 
End Sub 

Private Sub Textl_Change 

OptionKVal (Textl. Text)). Value - True 
End Sub 

Whenever the value in Text 1 is changed by the data control, it 
sets the Option button of the corresponding index value to True. 
Whenever the Option button is changed, it stores the correspond- 
ing Index in the textbox. Because the textbox is bound to the data 
control, the value is saved in the database. 

—Chris Schneider, Newark, Delaware 
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